program one;

var P : PChar;

begin
  P := 'This is a null-terminated string.';
  WriteLn(P);
  readln
end.

